gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\userModifySave.asp
<!--#include file = "include/sysbase.asp"--> <% dim IsModifyPwd, strPwd1, strPwd2, strAccount dim strSQL, cmdObj, rsObj IsModifyPwd = Request.Form("modifyPassword") strAccount = RealString(Request.Form("userID")) strPwd1 = RealString(Request.Form("password1")) strPwd2 = RealString(Request.Form("password2")) if IsModifyPwd = 1 then if strPwd1 <> strPwd2 then Response.Write "密码、确认密码不同<br><a href = 'Javascript:window.history.go(-1)'>返回</a>" Response.End end if end if ' Response.Write IsModifyPwd ' Response.End Set cmdObj = Server.CreateObject("ADODB.Command") Set rsObj = Server.CreateObject("ADODB.RecordSet") cmdObj.CommandText = "SELECT * FROM Admins WHERE Account = '"& strAccount & "'" cmdObj.CommandType = adCmdText Set cmdObj.ActiveConnection = conn rsObj.Open cmdObj, , adOpenKeyset, adLockOptimistic rsObj("Account") = strAccount rsObj("name") = Request.Form("name") if IsModifyPwd = 1 then rsObj("Pwd") = strPwd1 end if rsObj.Update rsObj.Close set rsObj = nothing CloseConn() %> <script language = Javascript> <!-- alert("修改成功!"); this.document.location = "<%=Session("adminOldUrl")%>"; --> </script>